program Rendezes;
uses crt;
var i,n,x,j:integer;
    a:array [1..100] of integer;
BEGIN
   clrscr;
   i:=1;
   write('Hany szam legyen a tombben? ');
   readln(n);
   while (i<=n) do begin Feltöltjük a tömböt n darab véletlen számmal.
      a[i]:=trunc(90*random+1);
      i:=i+1;
      end;

   writeln('A szamok rendezes elott:');
   i:=1;
   while (i<=n) do begin
      writeln('A tomb ',i,'. eleme: ',a[i]);
      i:=i+1;
      end;

   i:=1;
   while (i<n) do begin A tömb aktuális i-edik eleméhez hasonlítjuk a tömb összes többi elemét. Ha a sorrend nem megfeleleő, akkor cserélünk. Amennyiben elérünk a tömb végére, akkor a következő indexű elemet hasonlítjuk az utána lévőkhöz. Ezt addig folytatjuk, míg végig nem érünk a tömbön.
      j:=i+1;
      while (j<=n) do begin
         if(a[j]<a[i]) then begin Ha azt észleljük, hogy a vizsgált elemnél kisebb elemet találtunk, akkor a kettő értékét megcseréljük.
            x:=a[j];
            a[j]:=a[i];
            a[i]:=x;
            end;
         j:=j+1;
         end;
      i:=i+1;
      end;

   writeln('');
   writeln('A szamok rendezes utan:');
   i:=1;
   while (i<=n) do begin
      writeln(a[i]);
      i:=i+1;
      end;
   readkey;
END.